home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0769A.ZIP / LADORN1.PRG < prev    next >
Text File  |  1985-09-04  |  342b  |  22 lines
  1.  
  2. *  LADORN1.PRG
  3. SELECT C
  4. ZAP
  5. SET CONSOLE OFF
  6. SELECT B
  7. STORE RECNO() TO XRX
  8. REPORT FORM &MPARA NEXT 1 PLAIN NOEJECT TO FILE TEMP1
  9. GOTO XRX
  10. SELECT C
  11. APPEND FROM TEMP1.TXT SDF
  12. DELETE ALL FOR LEN(TRIM(MLINE)) = 0
  13. PACK
  14. GOTO TOP
  15. DO WHILE .NOT. EOF()
  16.    @ prow()+1,&MCC SAY MLINE
  17.    SKIP
  18. ENDDO EF
  19. DELETE FILE TEMP1.TXT
  20. RETURN
  21.  
  22.